home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD Fun House 1
/
CD Fun House (Wayzata Technology).iso
/
•AdventureLand•
/
Adventures
/
HyperQuest 1.03 •••
/
HyperQuest 1.03 еее
/
card_29888.txt
< prev
next >
Wrap
Text File
|
1990-10-02
|
8KB
|
325 lines
-- card: 29888 from stack: in.03 –µ–µ–µ
-- bmap block id: 4809
-- flags: 0000
-- background id: 2766
-- name:
----- HyperTalk script -----
on openCard
global ladderHole
if ladderHole
then set the loc of card button "ladder" to 138,177
else set the loc of card button "ladder" to 180,120
send cardOpened to background
end openCard
on move
global direction,chase,blasting,ladderHole,blastDam,holeDam
if direction = "south" or direction = "rear" then
if blastDam then
go to card id 26754
else
if holeDam then
go to card id 27307
else
go to card id 26200
end if
end if
exit move
end if
if direction = "down" then
beep
put "The shaft is filled with water. You would drown if you went down!" into field 3
exit move
end if
pass move
end move
on closeCard
set the cursor to 4
put "" into field 3
end closeCard
on take
global object,carried,ladderHole,oldRoom,newRoom,cardID,prevID
put last word of object into obj
delete first char of obj
delete last char of obj
if obj="ladder" then
hide object
set the loc of object to 180,120
put false into ladderHole
put "30264" into oldRoom
put "6984" into newRoom
send roomChange to background
put cardID into prevID
end if
-- remember to update carried if you do not pass take
pass take
end take
on drop
global object,dropRoom,carried,ladderHole
answer "Drop object in this room, or into the shaft?" with "shaft" or "room"
if it="shaft" then
put "Splash!" into field 3
if ladderHole then
put "30264" into dropRoom
else
put "6984" into dropRoom
end if
end if
-- remember to update carried if you do not pass drop
pass drop
end drop
on use
global object,carried,ladderHole,oldRoom,newRoom
put last word of object into obj
delete first char of obj
delete last char of obj
if obj="ladder" then
show object
set the loc of object to 170,134
set the loc of object to 159,148
set the loc of object to 148,162
set the loc of object to 138,177
put "The rope ladder is tied to the pitons and leads into the shaft." into field 3
put true into ladderHole
put "6984" into oldRoom
put "30264" into newRoom
send roomChange to background
exit use
end if
-- update carried if object lost (or do so in inv. card button)
pass use
end use
-- part 16 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=122 top=230 right=266 bottom=156
-- title width / last selected line: 0
-- icon id / first selected line: 9301 / 9301
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: knife
----- HyperTalk script -----
on mouseUp
global takeFlag,examFlag,object,cardID
put the name of the target into object
if takeFlag = true
then send take to card id cardID
else put "a knife" into field 3
put false into examFlag
end mouseUp
-- part 17 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=72 top=224 right=260 bottom=106
-- title width / last selected line: 0
-- icon id / first selected line: 1015 / 1015
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: nodule
----- HyperTalk script -----
on mouseUp
global takeFlag,examFlag,object,cardID
put the name of the target into object
if takeFlag = true
then send take to card id cardID
else put "a silicon sphere" into field 3
put false into examFlag
end mouseUp
-- part 19 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=198 top=153 right=189 bottom=232
-- title width / last selected line: 0
-- icon id / first selected line: 1019 / 1019
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: bomb
----- HyperTalk script -----
on mouseUp
global takeFlag,examFlag,object,cardID
put the name of the target into object
if takeFlag = true
then send take to card id cardID
else put "a time bomb" into field 3
put false into examFlag
end mouseUp
-- part 20 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=30 top=155 right=191 bottom=64
-- title width / last selected line: 0
-- icon id / first selected line: 24317 / 24317
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: key
----- HyperTalk script -----
on mouseUp
global takeFlag,examFlag,object,cardID
put the name of the target into object
if takeFlag = true
then send take to card id cardID
else put "a key" into field 3
put false into examFlag
end mouseUp
-- part 21 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=24 top=209 right=245 bottom=58
-- title width / last selected line: 0
-- icon id / first selected line: 7012 / 7012
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: gem
----- HyperTalk script -----
on mouseUp
global takeFlag,examFlag,object,cardID
put the name of the target into object
if takeFlag = true
then send take to card id cardID
else put "a glowing gem" into field 3
put false into examFlag
end mouseUp
-- part 35 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=99 top=164 right=187 bottom=174
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
global examFlag,direction,cardID,takeFlag
put false into takeFlag
if examFlag then
put "The shaft opening is filled with water." into field 3
put false into examFlag
else
put "down" into direction
send move to card id cardID
end if
end mouseUp
-- part 18 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=121 top=159 right=195 bottom=155
-- title width / last selected line: 0
-- icon id / first selected line: 14953 / 14953
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ladder
----- HyperTalk script -----
on mouseUp
global takeFlag,examFlag,object,cardID
put the name of the target into object
if takeFlag = true
then send take to card id cardID
else put "a rope ladder" into field 3
put false into examFlag
end mouseUp
-- part 41 (button)
-- low flags: 00
-- high flags: 0001
-- rect: left=119 top=186 right=203 bottom=156
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
-- part 42 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=125 top=152 right=164 bottom=152
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
global examFlag,takeFlag,direction,cardID
if takeFlag then
put "You can't take the pitons. They are solidly attached." into field 3
put false into takeFlag
else
put "Two pitons imbebbed in the stone floor." into field 3
put false into examFlag
end if
end mouseUp
-- part contents for background part 25
----- text -----
Square Room
(looking north)
-- part contents for background part 24
----- text -----
You are in a square room with a doorway to the south. There is a hole in the floor which is currently filled with water.
-- part contents for background part 36
----- text -----
1